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1 ZTITLE a“ PURGE permenant parameter module’ 
¢ MODULE NMLSPURGE 
st LANGUAGE {8L1ss5e 2) 


ADDRESSING_MODE (NONEXTERNAL=GENERAL), 


i 

Bas G_ 

. $s 005 ADDRESSING -MODE (EXTERNAL =GENERAL) | 
3 § $38 IDENT = 'V04-000' 
Ps = 

BAR OE BS eee 

: 19 Bets } PITITITILILILILL LLL LIL LLL LLL LLL LiLii LiL iiiiiiiiiiiiiiiiiii iii 
: te = 
: \¢ pots 1 !'® COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
i 013 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. ® 
; \ pote ! is ALL RIGHTS RESERVED. * 
Py : ft 
; Bore 1 !@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
TGS 0017 1 !* ONLY IN ACCORDANCE WITH TH RMS OF SUCH LICENSE AND WITH THE * 
oe 2 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
See, 0019 1 i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; @& pose 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: $) Basa } s TRANSFERRED. . 
: : 00 : 1 is He 3 INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
5 4 0024 1 !® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; H oe 2 : i. CORPORATION. * 
3 ! * 
3 $$ oh 1 !'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
= 0028 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. » 
; @& 94 1 !® * 
; 0030 1 !* * 
H H 5 : "atm eect iittala anda intel inlacnnaecin 
: : 0034 1 

3 4 0034 1 !++¢ 

3 5 0035 1 ! FACILITY: DECnet-VAX V2.0 Network Management Listener 

; #336 0036 1! 

; 7 0037 1 ! ABSTRACT: 

3 & 0038 1! ‘ 

3 +4 s't44 ; This module contains routines for processing NCP PURGE commands. 

: 41 0041 | ENVIRONMENT: VAX/VMS Operating System 

: “§ Doss : : AUTHOR: Distributed Systems Software Engineering 

> 45 $028 1 § CREATION DATE: 30-DEC-1979 

; 46 BOe6 1! 

3s 667 0047 1 ! MODIFIED BY: 

; 48 Boe8 1! 

; 49 0049 1! v03-006 MKP0006 ath 2-July-1984 

; @ 050 1! If doing a PURGE xNO N PRODES, and there is no Y executor 

; 23 eh : don’t return an error ate to NCP. 

: 3g 08 1 i V03-005 mKP000S athy 5-F eb-1984 

5 e¢ O38 ! Fix key eT. Ay ty PURGE KNOWN entities. 

: 2 B26 1! v03-004 MKP0004 Kathy Perko hr -1983 

» BT 0057 1! Make changes to change the node permanent database to use 
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14-Sep-19 
multiple ISAM keys. This is for performance reasons. 


MKPO0003 Kathy Perko 14-Sept-1982 
When the logging sink node id the executor, use a node 
address of zero. This allows the logging database to be 
transportable. 


MKPO002 Kathy Perko 29-June-1982 

Modify PURGE KNOWN processing to be able to pur e multiple 

entries with the same qnt tty ID (for X25-PROTOCOL GROUPS). 

Change qualifier handling to use one tes goer VT Ter Parameter 
semantic Table (PST) address instead of Network Management 

parameter code. 


MKPO0001 Kathy Perko 16-June-1982 
Add entity qualifier handling. 
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NAL SPURGE NAL PURGE permanent parameter module 1h-se -1984 00:27:19 VAX-11 Bliss-32 V4.0-74 Page 3 NA 
VOL 000 Declarat ons , 12-86-1384 90:80:16 DLEKSVMMASTERSENPL SRCINMLPURGE 832-1 (2) va 
3 a ? } ZSBTTL ‘Declarations’ ; 
i: ae ‘ 
; 0 79 1°! TABLE OF CONTENTS: : 
5 1 e} ! : : 
; : 0 ¢ 1 FORWARD ROUTINE ‘ 
; 1 LSPURGEKNOWN : NOVALUE, : 
; 85 084 1 NML_PURKNOWN : NOVALUE : 
; 86 5 1 NAL SPURGE _KNOWN NODES NOVALUE , : 
3 1 PURGE KNOWN_NODES: NOVALUE, ’ 
3 $8 1 LSPURLOGGING : NOVALUE, ‘ 
; ) : 1 NMLSPURENTITY : NOVALUE, ° 
; | «90 89 1 NML_PURENTITY : NOVALUE, : 
; 91 090 1 NML-PURLOGGING : NOVALUE, : 
3 3¢ 0091 1 NML_PURLOGALL ; ° 
 ¥ 0092 1 ; 
; 94 0093 1! : 
i; 0094 1 ! INCLUDE FILES: ; 
; * Boe. 1! ; 
3; 687 0 1 ; 
; 0097 1 LIBRARY ‘LIBS$:NMLLIB.L32'; ‘ 
; PP 0098 1 LIBRARY ‘SHRLIBS$:NMALIBRY.L32': ‘ 
; 100 0099 1 LIBRARY ‘SYSSLIBRARY:STARLET.L32'; : 
; 101 0100 1 ; 
: oe 0101 1! : 
s Bi0§ 1 ! EQUATED SYMBOLS: ° 
: 104 103 1! ‘ 
; 105 0104 1 ; 
: 106 0105 1! ‘ 
s 107 Bio9 1 ! Data base entity matching function codes. ‘ 
: 108 107 1! ‘ 
: 109 108 1 LITERAL ‘ 
: 110 109 1 NMLSC_ALWAYS = 0, ! Always match : 
s 414 110 1 NMLSC_MATCH = 1, ' Match if parameter is present : 
3 Wg 0111 +1 NMLSC_NOMATCH = 2; ! Match if parameter is not present ‘ 
3; 1 B16 1 : 
3 (116 0113 1! ; 
s 45 114 1 =! OWN STORAGE: : 
3 116 115 1! : 
; (117 116 1 : 
: Hi ih 4 | Qucnt iecst ter buff ; 
3 ! Event logging parameter buffer. : 
Bb alate ; 
: \ § , 1 1 I te alates : VECTOR CNMLSK_RECBFLEN, BYTE); : 
: : 3 \ § } NML$Q_EVTBFDSC = UPLIT (NMLSK_RECBFLEN, NMLST_EVTBUFFER) : VECTOR (2); : 
Sf $ 125 1 ! Entity buffer and descriptor. : 
2 ee 
> 129 128 1 NAL ST ENTBUFFER : BLOCK [NMLSK_ENTBUFLEN], : 
s | 1 1 NMLSQ_ENTBFDSC =: VECTOR (2); . 
; 131 130 1 ‘ 
| § ti me &. . 
| 132 1°! EXTERNAL REFERENCES: . 
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ECORD 
NTS, 


R 
NMLSREMSRC, 
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Sw 


NAL SCE 
NML$GETRECOWN 
NMLSREAD 

NML SSAVEVE 
NML$SEND 
NMLS$WRITERECORD; 
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1 ZSBITL *NMLSPURGEKNOWN purge parameters for known entities’ 
GLOBAL ROUTINE NMLSPURGEKNOWN (ENTITY, ENTITY_LEN, ENTITY_ADR) : NOVALUE = 


14 
} FUNCTIONAL DESCRIPTION: 


This routine removes the a set of parameters from the permanent 
data base entry for each entity of the specified type. 


FORMAL PARAMETERS: 


ENTITY Entity tye code. 
ENTITY_LEN Entity ID Length (used only for X25-PROTOCOL GROUPS). 
ENTITY_ADR Entity ID address (used only for X25-PROTOCOL GROUPS). 


o-oo 
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i 

i 

' 

i 

i 

i 

{ IMPLICIT INPUTS: 
; NMLSGL_PRS_FLGS Message parsing flags. 
SIDE EFFECTS: 

Signals errors. 
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BEGIN 
LOCAL 

deletefig, ! Record delete flag 
fid, ! File id code 
matchfilg, ! Record matching flag 


prm; Parameter code 


fid = .nml$ab_entitydata C.entity, eit$b_fileid); 
matchflg = nmU$c_always; 


i 1€ it's a PURGE ALL command, set a flag so the entity will be completely 
removed from the permanent database. 
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iF .nml$gl_prs_flgs Cnml$v_prs_all} THEN 
delete? ste stn 


deleteflg = false; 
SELES TUNEU -fid OF 
nma$c_opn_log]: 
BEGIN ° 


g = true 


Purge parameters for all logging sink types. 


nal$purlogging (.entity, nma$c_snk_fil, 


nml$pur logging (.entity, nma$c_snk_con, 0): ' 
gal Sour Lopetng (.entity, nma$c_snk_mon, 


Cnma$c_opn_x25, 
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N Purge parameters for known enti 1e-8ep-1 
nnets opn_x29): 
matchflg = onatse mat 


tch; 
prm = .nml$ab entitydata, Cent ity eit$Sw_key]; 
nmi_purknown C.fid, .entity, .entity_len, .entity_adr, 


——> 3 
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-matchflg, .deleteflg, .prm); 
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ns 

; COTHERWI SEI: 

: pasronaen (.fid, .entity, 0, 0, .matchflg, .deleteflg, 0); 
: TES; 

; END; ! End of NMLSPURGEKNOWN 


-TITLE NM SPUR GE NML PURGE permanent parameter module 


IDENT \vVO04- 

-PSECT S$PLITS,NOWRT,NOEXE ,2 
00000400 00000 P.AAA: .LONG 1024 ; 
00000000° 00004 -ADDRESS NMLST_EVTBUFFER : 


.PSECT SOWNS,NOEXE,2 
00000 NML$T_EVTBUFFER: 
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.BLKB. 102 

00400 NML$T_ENTBUFFER: 
.BLKB 64 

00440 NML$Q_ENTBFDSC: 
-BLKB. 8 

NML$Q_EVTBFDSC= P.AAA 

.EXTRN NML$GB_EVTSRCTYP 
-EXTRN NML$GQ~EVTSRCDSC 
ZEXTRN NALSGWTEVTCLASS 
-EXTRN NMLSGB_EVTMSKTY 
“EXTRN NMLS$GQ~EVTMSKDSC 
EXTRN NMLSGW~EVTSNKAD 
-EXTRN NMLSGW-ACP_CHAN 
-EXTRN LSGL-LOGAMASK, NML$GQ_ENTSTRDSC 
-EXTRN NMLSAB_QIOBUFFER 
“EXTRN NML$GQ~QIOBFDSC 
-EXTRN NMLSAB_EXEBUFFER 
-EXTRN NMLSGLEXEDATPTR 
“EXTRN NML$GO~EXEDATDSC 
-EXTRN NML$GQ"EXEBFDSC 
-EXTRN NMLSAB_RCVBUFFER 
-EXTRN NMLS$GQ"RCVBFDSC 
-EXTRN NMLSAB~SNDBUFFER 
-EXTRN NFILSGQ"SNDBFDSC 
-EXTRN NMLSGL-RCVDATLEN 
“EXTRN NMLSAB-CPTABLE, NMLSAB_MSGBLOCK 
“EXTRN NMLSAB-ENTITY [D 
SEXTRN NMLSAB~QUALIFTER_1D 
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NMLSAB_ENTITYDATA 
NMLSAB_NML_NMV, NAL SAB MSEM 
NAL SAB RECBUF, NALSAL SENT INE TAB 
NMLSAL~ PER MINE TAB 
NM S, NMLSGB_CMD_VER 
CODE 
RMAT 
R_PST 
R- FORMAT 


L$GB_OPTIONS 
NALSGL —PRS_FLGS 


e2orss 


oussm 
New 
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Wy 

C 
wi $64 PRMDESCNT 
RECDELET. NMASSEARCHFLD 
NA: SADDEVE NTS, NMLSADOFILTERS 
NML pNALSDEL. FIELDS 
NAL SDELETRE 


ET AXTENR » WMLSGETRECOWNER 
NALSRATCHRECORD 


L$READ_KNOWN NODE 

NMLSREADRE CORD; SOT SRERSRC 
NMLSSAVEVENTS, NMLSSEND 

NAL SURITERECORD 

SCODES,NOWRT,2 

NMLSPURGEKNOWN, Save R2,R3,R4,R5,R6,R7 

NMLSPURLOGGING, R7 

ENTITY R4 

TG R2 

NAL SAB ENTITYDATACR2), FID 


#1, NMLSGL_PRS_FLGS, 1$ 
#1, DELETEFLG 


DELETEFLG 
D, #2 
#1, -(SP) 
#3, NMLSPURLOGGING 
~(SP) 


#3, NMLSPURLOGGING 
-(SP) 


#3, NMLSPURLOGGING 

FID, #5 

FID, #6 

4s 

#1, MATCHFLG 

NMLSAB TENTITYDATA®3ER2] 
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i FUNCTIONAL DESCRIPTION: 
i Thi 


K 14 
16-Sep-1984 00:27:19 Vv Bliss 
Purge parameters for known entiti 12-868-1382 90 Roi 18 D 


ZSBTTL "NML_PURKNOWN Purge pereneters for known entities’ 
ROUTINE NML_PURKNOWN (FID, E 


TITY, ENTITY_LEN, ENTITY_ADR, 
MAT, DEL,"PRMS : NOVACUE = 


s routine is called for PURGE KNOWN operations for all entities 
except nodes. It deletes permanent data base information for each 
permanent database record that it matches. 


FORMAL PARAMETERS: 


FID File id code. 

ENTITY Entity type code. 

ENTITY_LEN Entity ID Length (used only for X25=PROTOCOL GROUPS). 
ENTITY_ADR Entity ID address (used on Y for X25-PROTOCOL GROUPS). 
MAT Qualifier lon (match, nomatch, always). 

DEL Delete flag (TRUE=yes, FALSE=no). 

PRM Parameter code (if applicable). 


SIDE EFFECTS: 


Signals errors. 


BEGIN 
LOCAL 


fldadr, 
fldsize, 
msgsize, ! Message size 
ey. ' Temporary record key buffer 
poceus : VECTOR C2], ! Record descriptor 
status; 


Add parameters to every entity in the permanent database file. 


key = 0; 
WHILE nalsreadrecord (.fid, key, 0, nml$gq_recbfdsc, recdsc, 0) DO 


status = true; 
fldadr = 0; 
fldsize = 6; 


IF ‘mer cet nml$c_match THEN 
IF NOT nma$searchfld (recdsc, .prm, fldsize, fldadr) THEN 
og tte = false 


' 
i If the entity takes a qualifier (e.g. X25-PROTOCOL GROUPS), 
! it has more than one entry in the database). Use the 

: supplied entity ID to identify all of the entity's entries. 


BEGIN 
IF .entity_len GTR O THEN 
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RGE NML PURGE permanent parameter module 1b-$e 1984 00:27:19 VAX-11 Bliss-32 V4.0-74 Page 1 N 
Vos~ 000 NPIL _PURKNOUN Purge pareneters for known entiti 1 ~Sep-19 4 RT DISK SVMSMASTERSENML SRCINMLPURGE 832042 cas V 
; BEGIN H 
$ IF NOT CHSEQL (entity len, -entity_adr, ‘ 
; -fldsize, .fldadr) THEN : 
; status = false; : 
; END; ; 
3 4! 4 = END; : 
; 38 ; : 
; 94 IF .status THEN : 
; 95 4 N : 
: 38 2 nm _purentity (.entity, .del, recdsc, key, 0); : 
3 38 2 Build and send the response message. : 
3 08 00 4 nmi $bld reply (nml$ab_msgblock, msgsize); : 
; 304 01 4 nml$send (nml$ab_sndbiffer, .msgsize); ; 
EBs os : 
; 307 0304 sey = .key + 1; ! INCREMENT RECORD KEY : 
: 308 0305 END; 3 
3 09 0306 END; ! End of NML_PURKNOWN : 
001C 00000 NML_PURKNOWN: 3 
«WORD Save R2,R3,R4 ; 0230 : 
5E 18 C2 0000 SUBL2 #24, SP 3 3 
08 AE 04 0000 CLRL : 0267 3 
7E D4 00008 1$ CLRL -(SP) ; 0268 i 
14 E 9F QOOOA PUSHAB RECDSC ; : 
000000006 00 9F one PUSHAB NML$GQ_RECBFDSC 3 3 
eS 01 CLRL (SP) 3 : 
18 AE 9F 0001 PUSHAB KEY $ : 
04 AC OD 00018 PUSHL FID 3 3 
000000006 00 96 FB 0001 CALLS #6, NMLSREADRECORD 3 3 
71 E9 000 BLBC e 3 : 
54 01 pO 4 MOVL #1, STATUS : 0270 : 
6E 7C 00028 CLRO = FLDADR : 0271 ; 
01 14 AC 01 QO0O2A CMPL MAT, #1 3: 0274 : 
8 12 000 ‘ BNEQ 3$ 3 3 
E DD 000 PUSHL SP ; 0276 : 
08 AE OF g PUS FLOSIZE ; . 
1c =6AC pp SHL PRM 3 : 
1 AE 9F 000 PUSHAB RECDSC 3 : 
000000006 00 4 FB 0 CALLS #4, NMASSEARCHFLD j 3 
11 O.€ be BLBC R 3 H 
OC AC D3 00045 Ist ENFITY_LEN ; 0285 : 
04 AE 00 10 BC +8 AC 20 GA CMPC5 cara Ty ten. @ENTITY_ADR, #0, FLDSIZE, - ; 0287 ‘ 
; 13 f BEQL 3 : 
D4 $ gf: CLRL STATUS : 0289 3 
35 4 €9 $: BLBC STATUS, 4$ : 0294 3 
E Be B CLRL -(SP) : 0296 3 
OC AE OF d PUSHAB KEY : : 


M14 
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rivet ty NAL _PURK Purge poraneters for known entiti 1 =Sep -1 1388 99: + 0:16 TT EKSUMGHASTERSEWML Sic SNMLPURGE 832047" (4) 
18 AE OOF 69 PUSHAB RECDSC : 
MB ORE OD PuSHt ENTITY 
00000000v 00 0 Fe 3 CALLS. #3 NL _PURENTITY ; ae 
o00c00sh6 05 3F 3 PUSHAB MSOs ZE MSGBLOCK ; 
000000006 00 0c 0 op CALLS ae ae REPLY & enn 
000000066 i F 000 PUSHAB NMLS$AB SNDBUFFER : 
000000006 00 FB 9 CALLS #2, NMCSSEND ; 
08 AE ; : 4$: INCL KEY + 0304 
FF7 5 009 BRW 1$ ; 0268 
4 00096 5$ RET + 0306 


; Routine Size: 151 bytes, Routine Base: S$CODE$S + 007F 
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vas NALSPURGE _RNOUN, NOBE Purge known nodes 19-808-1 382 90 8b: 16 DE EKSVMGRASTERSLNPL SRCINMLPURGE 832047" (3 
3 313 1 ZSBTTL at SURGE KNOWN _NODES Purge known nodes’ H 
: i i GLOBAL ROUTINE NMCSPURGE_KNOWN_NODES (ENTITY, INF, DUM1, DUM2) : NOVALUE = : 
: 314 10 1 !+¢ : 
; 15 1 1 ! FUNCTIONAL DESCRIPTION: : 
: 1$ \§ 1! This routine purges all entries for nodes that are in the permanent : 
;. 13 1! data base. Remote nodes are then aryee. Loop nodes are purged : 
; is 13 ! } last. The executor node is purged last. : 
: 320 16 i FORMAL PARAMETERS: ; 
3 1 > FE ENTITY Entity type code. ° 
3 § 1861! INF Information type code. 3 
: 19 1! DUM1 Not used. ° 
3 4 1! DUM2 Not used. 3 
3 5 1 : } : 
; ; $j : 
; 8 4 BEGIN ; 
: ) bs 2 IF NOT enml$gl_prs_flgs Cnml$v_prs_loopg] THEN : 
3 1 3 i Purge remote nodes. ; 
; : 03 ; nml_purge_known_nodes (nml$c_node); : 
: 3 0331 i Return Loop nodes. : 
3 33 0335 ! 3 
3 33 03 IF .nml$gl_prs_flgs Enat $v_prs_loopg) OR $ 
3; 333 0334 -nml$gl_prs_figs Cnml$v_prs_all] THEN 3 
; 339 0335 nml_purge Known_nodes Tnml$c_loopnode) ; 3 
: 9 0338 IF NOT <nml gl_prs_flgs Cnmi$v_prs_loopg) THEN : 
; *§ ts ; Return executor node. ; 
3 rf] Bee9 nml$purentity (nml$c_executor, 0, 0, 0, 0, 0); : 
: 308 0342 1 END; ! End of NMLSPURGE_KNOWN_NODES 3 
000¢ 00000 .ENTRY NMLSPURGE_KNOWN_NODES, Save R2,R3 : 0308 ; 
53 00000000 9E 0000 MOVAB NML_PURGE-KNOWN_NODES, R3 3 3 
5 000000006 4 3 8 MOVAB NMLSGL_PRS_FLGS 3 3 
OE 01 A F 1 BBS #3, NMCSGL-PRS_FLGS+1, 1$ : 0325 ; 
DD 0001 PUSHL # : 0329 3 
63 1 4 | 01 CALLS #1, NML_PURGE_KNOWN_NODES 3 ; 
04 01 as 3 E aie BBS #3, NMLSGL_PRS_FLGS#1, 1$ 3 8 3 3 
05 6 1 €1 OOO1F #1, NMLSGL-PRS-FLGS, 2$ : F 
63 ; PB 6 3 ~ CALLS #1, NML_PURGE_KNOWN_NODES : _ : 
OE 01 A2 3 £0 00098 2s #3. NMLSGL_PRS_FLGS?1, 5§ ; 0336 ; 
—E 7c D CLRQ = = ¢§p) : 0340 : 
43 C F CLRQ =(SP) 3 : 
7E 8 70 1 MOVa #7, =(SP) 3 : 
00000000v 00 6 FB CALLS #6, NMLSPURENTITY ; 3 
04 B 3$ RET : 0342 3 


vee ti NALSPURGE RNOUN NODES” “Purge known nodes 1B-4¢ op-138e 9938034 Tea lmBAAR TERS CAML SRCSNMLPURGE .83204%° (3 


» Routine Size: 60 bytes, Routine Base: SCODE$S + 0116 
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ZSBTTL "NML_PURGE_KNOWN_NODES Purge pereneters for known nodes’ 
ROUTINE NML_PURGE_KNOWN_NODES (ENTITY) : NOVALUE = 


'e¢ 
! FUNCTIONAL DESCRIPTION: 

This routine deletes parameters from permanent data base information 
for known nodes or loopnodes. 


FORMAL PARAMETERS: 
ENTITY Entity type code. 


SIDE EFFECTS: 
Signals errors. 


recdsc: VECTOR (2), 
lag, 

msgsize; 
' 
: af presorens a PURGE ALL command, set up to delete the entire record from 
' the pepnenes database. Since the only valid parameter for loopnodes is 
CIRCUIT, purging CIRCUIT is the same as PURGE ALL for Loopnodes. 
if -nml$gl_prs_flgs Cnml$v_prs_all] OR 

° {Sol prs_flgs nml$v_prs_loopg] THEN 

deleteflg = true 

deleteflg = false; 
Add parameters to every record in the file. 
rewind_flag = true; 


u 
WHILE nmi $read_known_node_rec (.entity, 
nml$gq_recbfdsc, 


recdsc, 
-rewind_flag) DO 
BEGIN 
royind. tae = false; 
nml_purentity (,entity, .deleteflg, recdsc, UPLIT (0), 0); 


Build and send the response message. 


nmi $bld reply (nmi $ab_msgblock, msgsize); 
nml$send (nml$ab_sndbuffer, .msgsize); 


END; ! End of NML_PURGE_KNOWN_NODES 
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88 000000006 
000000006 


000000006 


00000000v 
000000006 


000000006 


3; Routine Size: 113 bytes, 


Routine Base: 


arameter module 
Purge parameters for kno 14-Sep-1984 


00000000 00008 P.AAB: 


000C 00000 NML_PURGE_KNOWN_ 
ORD 


5 ¢ 
ee 
i 

52 01 
32 

08 AE 
000000006 00 

06 AC 
3 

E 
00000000" 00 
oc ag 

5 

04 AC 

00 93 
000000006 30 

0 02 
: 

000000006 0 

ees 


SCODES + 01 


£§ 90008 
Ei 0D 


o-9° 
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oOooooo 
COooeceo 
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- LONG 


-PSECT 


wu. 


93:86: 


9 VA iss-32 V4.0 
6 I 


1 
1 D 
0 


SCODES .NOWRT,2 

NODES: 

se 2 Re RS 

#1, NMLSGL_PRS_FLGS, 1$ 
#3, NMLSGL-PRS-FLGS+1, 2$ 
4}. DELETEFLG 

DELETEFLG 
#1, REWIND 
REWIND_FLAG 
NML$GQ_RECBFDSC 

#4, NMLSREAD_KNOWN_NODE_REC 


REWIND_FLAG 
-(SP) 


FLAG 


D 
ENTITY 

a3 NML_PURENTITY 
NML$AB_MSGBLOCK 
nee NMCSBLD_REPLY 
NMLS$AB_SNDBUFFER 
ace NMCSSEND 


X-11 Bliss-3 rity 
SKSVMSMASTER: CNML . SRC JNMLPURGE .832 
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RLOGGING Purge logging parameters 14-Sep-1984 12:50:16 DISKSVMSMASTER:CNML.SRCIJNMLPURGE.B32;1 (7 


ZSBTTL "NMLSPURLOGGING Purge lo 


Sz 


| 
aging parameters’ 
GLOBAL ROUTINE NMLSPURLOGGING (ENTITY, SNK, DUM2) : NOVALUE = 

| 


'¢ 


. 
FUNCTIONAL DESCRIPTION: 


Add parameters to the permanent data base entry for the specified 
Logging entity. 


FORMAL PARAMETERS: 


S82SSF 


i 

i 

i 

i 

i 

— Eosate Syes, cede. 
: ogging sink type. 
: ot used. 

DUM2 N ? 24 

i 

i 

' 

i 

' 

i 


IMPLICIT INPUTS: 


NMLSGL_PRS_FLGS Message parsing flags. 
NMLSGWIEVTSNKADR Sink node address. 


1 
1 
1 
1 
1 

1 

1 
1 

1 | 

i | 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 

BEGIN 
LOCAL 
FID ! File id code 

MSGFLG ' Response message flag 

| 

} 

} 


MRK 


MSGSIZE, Message size 

KEY Temporary record key buffer 
Search key 

Record descriptor 


OWNER 
RECDSC : VECTOR (23: 


WN SO ODONOVUES WN “OO ONOUSWN—O 


iw 


' 
! If this is the event sink (ESI) parameter group then call the normal 
routine. 

I 


F .NMLSGL_PRS_FLGS CNMLSV_PRS_ESIPG] THEN 
NMLSPUREWTITY (NMLSC_SINK, 1, SNK, 0, 0, 0); 
RETURN 


Foy ot ot ot ot ot ot ot ot ot at RUM MMMM 


abet wos 


w 
oO 


' 

The event filter parameter group is handled specially. 

NMLSAB_MSGBLOCK CMSBSL_FLAGS) = 0; ' Initialize message flags 
FID = TNMLSAB_ENTITYDATA Path E1LT$B Aer th te ' Get file id 


OWNER = .NMLSAB_ENTITYDATA C.ENTITY, E1TSW_KEY i Get search key 
KEY = 0; ! Initialize record key 


i If this is all (no parameters) then purge all logging to the specified 
! sink type (console, monitor, or file). 


if -NALSGL_PRS_FLGS CNMLS$V_PRS_ALL] THEN 
NSGFLG = NML_PURLOGALL (.SNK); 


F 15 
NALSPURLOGEING. Purge Loos "9 porensters 132380-1 382 93: 531 bs xs MeHAS TERSEWML SA se NML PURGE .832; 1 d 
ELSE 
4 } Purge the event filter (EFI) database. 
BEGIN 


; 
: 
i 
és 


If purging logging for the executor node, use a sink node address of 
zero ng zero for the executor node allows the Logging database 
to be transported to another node and have the events 

new executor. 


i 

ogged at the 
i 

if .NMLSGL _PRS_FLGS CHM, SV_PRS EXESHK] THEN 

i 

i 

i 


NMLSGW"EVTSNKADR 


If there is a record in the Logging database for the sink node specified 
in the NICE message, purge the 


F AMLSMATCHRECORD (. py 


5S 
Oo 


ogging filters. 


L$G6Q_RECBFDSC, 
OWNER 2, NMLSGW -EVTSNKADR, 
RECDSC) THEN 


BEGIN 
NAL tesirn (.SNK, .NMLSGW_EVTSNKADR, RECDSC, KEY); 
xs & 5 RUE; 


No qualifier 


june $0 nENTOr OSE fol = 

NML$Q"- ENTBFDSC = nist ENTBUFFER; 
NMLST- ENTBUFFER<O,8> 

NMLSAB_MSGBLOCK ASBSV. ENTD FLD) = ! Set entity descriptor flag 

NMLSAB_ “MSGBLOCK CMSBSA_ENTITY) = nniga _ENTBFDSC; i Add entity descriptor pointer 


Build and send the NICE response message. 
if .MSGFLG THEN 
GIN 


NMLSBLD_REPLY (NMLSAB_MSGBLOCK, MSGSIZE); 
NAL SEND (NMLSAB_SNDBOFFER, .MSGSIZE); 


RRRRRLLRLKLRLLELRLLKRKKRLKKKKEK 


QESRAN LS SSEVEALAN ILS SSVSAR ANS 


4 
4 
4 
' END; 
Set up to add ae id (sink type code) to NICE response message. 
1 


END; ! End of NMLSPURLOGGING 


01FC 00000 .ENTRY NMLSPURLOGGING, Save R2,R3,R4,R5,R6,R7,R8 
3 006 9E 00 08 MOVAB NMLSGL_PRS_FLGS 
G 9E MOVAB NAL SGW~ EVTSNKADR, R7 
$ G 9E 19 MOVAB NMLSAB"MSGBLOCK, R6 
0 3 1 MOV Nn $0, ENTBFDSC. “RS 
E C 1€ SUBL 


Pa age 
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vorsObe NALSPURLOG ING Purge logging parameters 14-$ 71382 MOR te DISKSVMSMASTER:CNML.SRCIJNMLPURGE.B32;1 (7) 
RS_FLGS+1, 1$ 3; 0431 
13 01 «AB r i ! BBC #4 NMLSGL_P S_FLGS 0431 
E g CLRL = = (SP) : 
08 A F A PUSHAB SNK $ 
DD D PUSHL #1 : 
: DD F PUSHL We ; 
00000000v 00 FB 1 CALLS #6, NMLSPURENTITY Pose 
1$: CLRL_ NMLSAB_MSGBLOCK : bed6 
50 06 =A e 3 MULL3 #44, ERTITY, RO + 0441 
53 00000000600 6 A 0004 MOVZBL NL $AB_ENTIFYDATACROJ FID : 
000000060040 9F 0004 PUSHAB NMLSAB-ENTITYDATA+3(RO) + 0442 
52 9E 3C O004F MOVZWL @(SP)+> OWNER : 
E 04 00052 CLRL~—sCvKEEY + 0443 
OF 68 6§ E1 00054 BBC #1, NMLSGL_PRS_FLGS, 2$ + 0448 
08 aC DD 00058 PUSHL SNK + 0450 
00000000v 00 1 FB 0005 CALLS #1, NML_PURLOGALL : 
: 5 oF Oboe cn ge owe  ouas 
02 01 AB E9 00067 2$ BLBC NMLSGL_PRS_FLGS+1, 3$ + 0463 
67 84 00068 CLRW = NMLS$GW-EVTSNKADR > 0464 
08 AE OF 9060 3$ PUSHAB RECDSC : 0469 
7E 7¢ 000 9 CLRQ = = (SP) ; 
7E D4 9007 CLRL = (SP) : 
57 DD 00074 PUSHL 7 : 
08 DD 90076 PUSHL #2 : 
DD 0007 PUSHL OWNER : 0472 
1C AE 9F OOO7A PUSHAB KEY + 0469 
000000006 09 oF 9070 PUSHAB NML$GQ_RECBFDSC : 
000000006 00 A +3 0085 CALLS #10, NMLSMATCHRECORD ; 
15 0 €9 0008C BLBC ~=_s«aRO,,_ 4S : 
H 4 it PUSHAB RECDSC ws 
7E “ 4 C itd MOVZWL NMLSGW_EVTSNKADR, -(SP) F 
08 AC DD 00097 PUSHL SNK ; 
reese 1 58 Seer aut’ Fi: atefumboeein arr 
65 01 50 OOA4 4$: MOVL #1, NML$Q_ENTBFDSC : 0483 
06 «AS CO. OAS OO0A7 MOVAB NMLST_ENTBUFFER, NMLSQ_ENTBFDSC+4 > 0484 
CO. AS 08 AC 36 OOAC MOVB SNK, AML$T_ENTBUFFER : 0485 
66 1 8 00081 BISB2 #16, NMLS$AB_MSGBLOCK 7 04 
16 Ab : : 0084 MOVAB NM $0, ENTBFDSC, NML$AB_MSGBLOCK+20 : ea 
L ; 
" 04 ic SF S BB PUSHAB MSGSIZE ; 0493 
56 DD 0008 PUSHL R ‘os tac cia ; 
nenanentedthtd 4 Re BD bog sushe MSG ‘eee: + 0494 
coooodbds ) Sr Sona PUSia RALEAR”syosurrer : 
00000006 00 A ; 
. 04 itt] 5$: RET > 0497 


; Routine Size: 216 bytes, Routine Base: S$CODES + 01C3 
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NMLSPURENTITY Delete entity parameters 19-808-1382 10:85:10 DIEKSVMGMASTERSCWML SRCINMLPURGE 832017" (8) 
ZSBTTL ‘"NMLSPURENTITY Delete envi ty parameters’ 
GLOBAL ROUTINE NMLSPURENTITY (ENTITY, ENTITY _LEN, ENTITY_ADR 
QUAL_PST, QUAL_LEN, QUALADRS : NOVALUE = 


eo 


FUNCTIONAL DESCRIPTION: 


ARANLSSS 


This routine removes a set f parameters from the permanent data 


° 
base entry for the specified entity. 
FORMAL PARAMETERS: 


i 
i 
i 
i 
i 
; ENTITY Entity type code. 

! ENTITY_LEN Byte count of entity id string. 

: ENTITY_ADR Address of entity id string. 

QUAL_PST aaeress of Qualifier's Parameter Semantic Table (PST) 
; address 

! QUAL_LEN Byte count of gyal tfter id string 

: QUAL _ADR Address of qualifier id string 

' 

i 

i 

i 

i 

i 

i 

i 

ie 


FUSPUSVSUSVSPISVSISISIIIII 


IMPLICIT INPUTS: 

NMLSGL_PRS_FLGS Message parsing flags. 
SIDE EFFECTS: 

Signals errors. 


LOCAL 
deletefig, 
fid 


msgsize, 
key, 
key_value_dsc: VECTOR (2), 


owner, 
recdsc : VECTOR (2), 


temp, 
status; 


File id code 

Message size 

Temporary record key buffer 

ID of node being purged (not used 
for other entities. 

Search key 

Record descriptor 


' 
: Set the flag to indicate record deletion (or not). 


if .nml$gl_prs_flgs (nml$v_prs_all] OR 
Si-prscfle Cet tees oe, THEN 


-nal$gl_prs_flgs 

deletetig = tfue 

deletefig 
Add parameters to the entity record in the file. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
nml$gb_entity_format : BYTE SIGNED; 
false; 
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GE permanent parameter module 1b-5¢ Sep-1984 7:19 VAX-11 s-32 V4. 0 we 
ENTATY Delete entity pareneters 12-808=138e 99: gh: :16 DISK$V mt TER: CNML. ORC INML PURGE. B32. ie © 


fid = —_— entit ydata C sencity, eit$b Ay ote ' Get file id 
owner = crm 3 nt Ttydars pent ty, eitSw_key ! Get search key 
key_value_d o) = eyerie len; 

key. “value_ “dsc “entity- adr; 


Find the record in the file. 
if .fid NEQ mma$c_opn_node THEN 
BEGIN 


ke 0; 
status = oupcummtcncndne —-* (.fid 
nm $gq_ gto, SR 


ey. 
nar eentity_len, .entity_adr, 
qual zbst- -qual_len, .qual_adr, 
recdsc 
END 
ELSE | 


i Since the node permanent database is much larger than the others, it 
has a different structure using four ISAM keys instead of one. 


BEGIN 

key = .owne 

IF .owner EOL nmn$c_typ_key_ref THEN 
BEGIN 


key_value_dsc = nmn$c st p_key_len: 
key~ value_dsc £93 = entity 3 ve 


status = nml$readrecord (.fid, owner, key_value_dsc, 
ne nml$gq_ recbfdsc, recdsc. temp); 


IF .status THEN 
on gg erent Sty (.entity, .deleteflg, recdsc, key, key_value_dsc) 
qesin 


i No such entity found in data bas 

! If processing a PURGE KNOWN NODES "ALL, and there is no record for 
i the executor, don* t return an error message to NCP. Otherwise, 

! return an error response. 


if entity EQL nml$c_executor AND 
-Status EQL rms$_fnf AND 
-nal$gb_entity_ Nan EQL nma$c_ent_kno THEN 


R N> 
nal$ab -nsgblock pabeh \.flegs] = msb$m_det_fld; Message detail only 
nal $ab_msg proce msb$b_code] = naasc _sts_ctmp; ! Add error code 

nal$ab_ -msgblock msb$w_ Soteit 

aa \$ab_entitydata Centity, eit$w_detail); 
‘ e 
Build and send the response message. 


rat $bld reply (nml$ab_msgblock, asgsize); 
nml$send (nml$ab_sndbuffer, .msgsize); 


NML_ PURGE permanent parameter module 13-50 
NAL SPURCATS TY Delete entity parameters 


8618 F en: 


BE 
8 


Sep-1986 $2380: 


! End of NMLSPURENTITY 


OOFC 000 ENTRY 
, 099000096 3 ote NOVAS 
Bi iittdaintds 5 a ROvA 
08 000000006 5 : 2 1A BBS 
sens te Se os, Bh 
2 11 00 Bey BRB 
4 D4 0002F gs: CLRL 
52 04 ac 2 cs 0031 3$: MULL 
5 6642 9A 000 MOV ZBL 
03 A642 9F OO03A PUSH 
04 AE 9— 3¢ 009 MOVZWL 
pat Me 8 8S 08 bo0e at 
24 f 0049 BEQL 
08 AE 04 00048 CLRL 
10 AE 9F O004E PUSHAB 
i: be AG 7b 00085 Ova 
08 AC DD 00059 PUSHL 
iC AE pp 0003¢ PUSHL 
24 AE 9F OO05F PUSHAB 
0088 8F 8B 00062 PUSHR 
000000006 00 OA FB 0066 CALLS 
08 AE 04 AE 00 Ooder 4$: MOVL 
oe 2) as 
18 AE 2 06 O07A MOVL 
1C AE 04 AC 9E 0007 MOVAB 
SE DD 00083 S$: PUSHL 
peas a 
26 «AE OOF A PUSHAB 
4 8 Ob PUSHES 
cere ee EL Pa, 
18 AE SF 09C PUSHAB 
95 OME OOF Sooke PUSHAB 
54 DD ng PUSHL 
04 aC DD OO0A PUSHL 
00000000v 00 05 AA CALLS 
07 06 =A D4 85 7$ CMPL 
13 é B BNEG 
00018282 = «&F 50 »D B9 CMPL 


VAX-11 Bliss-32_V 
DISKSVMSMASTER: 


NMLSPURENTITY, Save R2,R3,R4,R5,R6,R7 
NML$GQ_RECBFDSC 
NMLSAB-ENTITYDATA, R6 

SABEMSGBLOCK, R5 


$ 
» NMLSGL_PRS_FLGS, 
Ay NMLSGL_PRS “Less! 
48 DELETEFLG 


DELET cL 

pee NTITY 

one MENTTfyDATACA23 FID 
NMLSAB-ENTITYDATA+3LROJ 
a(SP)+> OWN 

ENTITY. "LEN, KEY_VALUE_DSC 


4$ 


‘Os 


Y 

RECDSC 

QUAL_LEN, =(SP) 
ENTITY ADR, -(SP) 
ENTITY_LEN 
OWNER ~ 

KEY 
#*M<R3,R7> 
#10, NMLSMATCHRECORD 


OWNER, KEY 
WNER, #1 


#2, KEY_VALUE_DSC 
ENTITY, “KEY_VALUE_DSC+4 


RECDSC 
KEY VALUE _DSC 
OWNER 


FID 

#6, NMLSREADRECORD 
KEY_VALUE_DSC 

KEY 

RECDSC 

DELETEFLG 

NTITY 

#5, NML_PURENTITY 


NTITY, #7 
STATUS, #98994 


ay 


chi’ OSRCINMLPURGE. B32; i9 
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GE NML_ PURGE t parameter module 16-Sep-1 :27:19 = VAX=11_BLiss-32_V4.0-74 Page 22 NF 
voL~000 NMLSPURENTITY Delete entity parameters 1 ets 7 1:85:18 DISKSVMSMAS TER: CNML. SRCINMLPURGE 832; 1° & ve 
A BNEQ = 8S ; : 
FF 8F 000000006 00 i iH cHPe NAL SGB_ENTITY FORMAT, #1 ; 0600 ; 
65 CC 8$: MOVL #2, NMLSAB_MSGBLOCK ; 060 : 
06 A be CF MNEGB #8, NMLSAB-MSGBLOCK+4 ; 060 : 
01 Ab 03 PUSHAB NMLSAB_ENTITYDATA+1(R2] ; 0605 ; 
08 AS 9E BO 900 MOVW a@(SP)+7 NMLSAB_MSGBLOCK+8 ; : 
Oc AE 9F 00008 98 PUSHAB GS1zE 3 0610 : 
000000006 00 FB oe CALLS #2, NMLSBLD_REPLY : ; 
OC AE DD O00E PUSHL MS ; 0611 : 
000000096 99 OF OOOEA PUSHAB NMLSAB_SNDBUFFER ; : 
000000006 00 FB S00FO me CALLS #2, NMCSSEND a esse : 


; Routine Size: 248 bytes, Routine Base: SCODES + 0298 
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GE permanent parameter module 18-5 -1984 00:27:19 VAX-11 Bliss-32 V4.0 
ENTATY Purge entity parameters 1 =30071 382 90:8 ite DE KSUMGMASTERS CURL 


ZSBTTL "NML_PURENTITY purge entity peceneters. 
ROUTINE NML_PURENTITY (ENTITY, DEL, RECDSC, KEY, KEY_VALUE_DSC) : NOVALUE = 


lee 
: FUNCTIONAL DESCRIPTION: 


This routine removes permanent data base parameters for the specified 
. ne. 
' 
: FORMAL PARAMETERS: 
i ENTITY Entity type code. 
: L Record delete flag (TRUE=yes, FALSE=no). 
; RECDSC Address of current record descriptor. 
! KEY For all but node database - Current record key. 
: KEY_VALUE_DSC Used only for node database - ID of node being purged 
BEGIN 
recdsc : REF VECTOR (2); ! Record descriptor 
LOCAL 
fid; ! File id code 


fid = .nml$ab_entitydata C.entity, eit$b_fileid]; ! Get file id 
nml$ab_msgblock Emsb$l_flegs] = 0; 
nml$ab_msgblock msb$b_code] = nma$c_sts_suc; 


Delete parameters. If none specified then delete record. 

if NOT .del THEN 
BEGIN 
i Purge the parameters specified by the NICE message, and then write the 
record back to the permanent database file. 


nmi$del_fields (.recdsc); 
nml$writerecord (.fid, .entity, .key, .recdsc, nmn$c_update_rec); 


EN 
ELSE 
BEGIN 


i Delete the ont record from the permanent database. This is 
generally a PURGE ALL operation. 


nmi$deletrecord (.fid, .key,_.key_value_dsc); 

nmi $ab_msgblock Ensbs{_#lags] = msb$m_msg_fld; 

nml$ab_msgblock Cmsb$i"text] = nml$_récdelet; 
' e 


Add entity id to message descriptor. 


nmi $q_entbfdsc £0} = nml$k_entbuflen; 
nal$q_entbfdsc (1) = nml$t_entbuffer; 
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415 
RGE NML PURGE permanent parameter module 16-Sep-1984 00:27:19 VAX-11 Bliss-32 V4.0-74 Page 24 NI 
VOLe000 NML_PURENTOTY Purge entity parameters 12-868-1 388 90 8018 DLSKSVMGMASTERSENML SRCINMLPURGE 832017 3 vi 
; 679 7 nal$getrecowner (.recdsc, : 
3 7 -entity, ; 
3 7 nm\$q_entbfdsc, : 
; § a nml$q_entbfdsc (0J); ‘ 
; 67 nml$ab_msgblock (msb$v_entd_fld] = 1; ! Set entity descriptor fla 3 
3 5 re nmlSab-mseblock Emsbée-ent vey = nml$q_entbfdsc; 1 Add entity descriptor pointer : 
; 8? 79 eno; ! End of NML_PURENTITY ; 
001C 00000 NML_PURENTITY: ; 
- "WORD Save R2,R3,R4 : 0615 : 
54 00000000' 00 9€ 902 MOVAB NML$Q_ENTBFDSC, R4 : ; 
53 000000006 00 9 0 -HOVAR NML$AB_MSGBLOCK, R3 : ; 
50 04 AC § 19 ULL3 #44, ERTITY, RO + 0640 : 
52 0000000060040 9A 0091 MOVZBL NMLSAB_ENTITYDATACROJ, FID ; ; 
D4 00010 CLRL NMLSAB-MSGBLOCK + 0641 ; 
04 A3 1 90 O001F MOVB #1, NMCSAB_MSGBLOCK+4 > 0642 i 
20 08 AC E8 00023 BLBS eL, 1$ + 0646 ; 
OC AC DD: 9 7 PUSHL RECDSC : 0652 ; 
000000006 00 OT FB 80 A CALLS #1, NALSDEL_FIELDS oo 
OC AC DD 00033 PUSHL RECDSC ; : 
10 AC DD 00036 PUSHL K ; : 
04 AC DD 00039 PUSHL ENTITY : : 
52 DD 00C63C PUSHL FID 3 : 
000000006 00 05 Fe O05 CALLS #5, NMLSWRITERECORD F ean : 
7E 10 AC 70 00047 1$: MOVQ KEY, =(SP) + 0661 ; 
000000006 0 3g PB bOeee CALS #3 NMLSDELETRECORD : : 
. 6 4 09 0054 OVL #4. AB_MSGBLOCK > 0662 ; 
0c A3 000000006 3F p 0057 OVL #NML$_RECDELET, NMLS$AB_MSGBLOCK+12 + 0663 : 
64 4 F 9A OO05F 2S: MOVZBL #64, RML$Q ENTBFDSC + 0668 ; 
06 Ab CO A& YE 0006 OV NMLST_ENTBOFFER, NMLSQ_ENTBFDSC+4 > 0669 : 
34 DD 000: PUSHL  R4 : 0674 3 
4 DD 0006A PUSHL  R4 : 0671 : 
04 AC OC 996¢ PUSHL ENTITY : 0672 : 
000000006 0 “ Of pe $ CALLS FE. NMLSGETRECOWNER . on ; 
. 8 0 8 80079 BISB L$AB_MSGBLOCK : 0676 : 
14 A 64 007¢ MOVAB NML$Q_ENTBFOSC, NMLSAB_MSGBLOCK+20 : 0677 ; 
0080 ET : 0679 3 


129 bytes, 


Routine Base: 


SCODES + 0393 


N 15 

RGE NML PURGE permanent parameter module 16-Sep-1984 00:27:19 VAX-11 Bliss-32 V4.0-74 Page 25 
YO%~000 NML_PURLOGGING Purge logging parameters 12786871382 93:80:18 DLSKSVMGMASTERSCNML SRCINMLPURGE 83207" 183 
5 $88 O 1 ZSBTTL ‘NML_PURLOGGING Purge Logging pereneters. 
; re 1 ! ROUTINE NML_PURLOGGING (SNK, SNKADR, RECOSC, KEY) : NOVALUE = 
: 69 ¢ 1 !+4 
3 $37 oR? ! } FUNCTIONAL DESCRIPTION: 
; 695 $ 1! This routine performs common purge functions for both singular 
; $38 6 1! and plural requests. 
; 69 Hy 1! 
; 698 34 : } FORMAL PARAMETERS: 
; 691 1 | SNK Logging sink type. 
: 701 Oe94 ii SNKADR STRE node edéress. 
; 70 892 1! RECDSC Address of current record descriptor. 
s 70 94 1! KEY Address of current record key. 
: 704 393? 1! 
: 705 36 1 ! IMPLICIT INPUTS: 
; 706 0697 1! 
3; 707 0698 1! NONE 
; 708 0699 1! 
; 709 07 1 ! IMPLICIT OUTPUTS: 
; 710 0701 1! 
3 711 140 1! NONE 
3 r¢ 07 1! 
Pome 07 1 ! ROUTINE VALUE: 
3; 714 9705 1 ! COMPLETION CODES: 
3; 715 07 1! 
; 716 07 1! NONE 
3; 717 07 1! 
3; 718 07 1 ! SIDE EFFECTS: 
3; 719 07 1! 
5 £30 07 1! NONE 
3; 721 07 1! 
2 § 07 1 !-- 
3 7¢ 07 1 
3 726 07 BEGIN 
3; 725 07 
; £ $ 07 
. F 97 SNKADR : WORD, 
3 g : oF RECDSC : REF VECTOR; 
; 750 7 LOCAL 
: 4 1 o7 tte ! File id code 
. 7 4 6) FLDADR 
2 of STATUS, 
3 4 5 i UPDFLG; ! Data base update flag 
3 eH i FID = .NMLSAB_ENTITYDATA CNMLSC_LOGGING, EITSB_FILEIDJ; ! Get file id 
3 43 Add event flags. 
3 oh 4 IF NOT NMLSADDEVENTS (FALSE, .RECDSC, .SNK, .SNKADR, UPDFLG) 
: 748 g : RETURN; 
3; «6745 7 ! If the events parameter valid then write the record back to the file. 
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NAL GE NML PURGE permanent parameter module 1b-5¢ Sep-1984 19 VAX-11 Bliss-32 V4 
ives NAL _PURLOGGING Purge logging parameters ~3ep-1986 99: $53) 16 DISKSVMSMASTER: CNML 
3 4 73 Otherwise, delete the record. 
; 74 7 § IF .UPDFLG 
; 76 74 THES 
Se ? 74 WALSWRITERECORD (.FID 
; 7 74 Ni $€_LOGGING, 
: Fee te *RECBSC 
: g 4 24s ses NSC UPDATE _REC) ! Write the record 
3 f $ me NMLSDELETRECORD (.FID, .KEY, 0); ! Delete the record 
: 136 4 NMLSAB_MSGBLOCK CMSBSB_CODE] = NMASC_STS_SUC; 
; 760 O78 END; ! End of NML_PURLOGGING 
0004 00000 NML_PURLOGGING: 
~ WORD Save R2 
5E 04 C2 0000 SUBL2 #4, SP 
52 0000000°¢ 00 9A 0000 MOVZBL NMLSAB_ENTITYDATA+44, FID 
5E tg 000C PUSHL SP 
7E 08 AC C 0000 MOVZWL SNKADR, =(SP) 
04 AC 0D 0001 PUSHL SNK 
0c AC DD 0001 PUSHL ar 5 
43 D4 00018 CLRL (SP) 
000000006 00 fe QOOTA CALLS s, NMLSADDEVENTS 
2D 0 €9 00021 BLBC RO, 3$ 
15 6E E9 900 4 LBC —sUUPDFLG, 1$ 
0 DD 00027 PUSHL # 
0c AC DD 00029 PUSHL RECDSC 
10 aC DD 0002C PUSHL KEY 
4 DD 0002F PUSHL 
4 DD 00031 PUSHL fio 
000000006 00 0S FB 900033 CALLS #5, NMLSWRITERECORD 
3 11 QOO3A BRA 2$ 
E ee O03C 1$ CLRi -(SP) 
10 AC DD OO003E PUSHL KEY 
3 DD 00041 PUSHL ae 
00000000G 00 03 FB 00043 CALLS NMLSDELETRECORD 
00000000G 00 61 8 8 3h gf: neve #1, NMLSAB_MSGBLOCK+4 


; Routine Size: 82 bytes, Routine Base: $CODES + 0414 
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GE permanent parameter modul 16- -1984 2:27:19 AX-11 iss- 4.0- 
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Purge logging sink parameters -Sep-1 D 


ZSBTTL "NML_PURLOGALL Purge logging sink parameters’ 
ROUTINE NMLTPURLOGALL (SNK) = oo 9 . 


lee 
FUNCTIONAL DESCRIPTION: 


This routine performs common purge functions for both singular 
and plural requests. 


! FORMAL PARAMETERS: 


SNK Sink type code. 


: IMPLICIT INPUTS: 


NONE 
IMPLICIT OUTPUTS: 
NONE 


; peal VALUE : 


OMPLETION CODES: 


TRUE is returned if any operations have been performed indicating 
that a status message should be sent. If no operations were 
performed then no data for the specified sink type was found so 
no status message should be sent. 


SIDE EFFECTS: 


NONE 
BEGIN 
LOCAL 
! File id code 
FLOSIZE, 
FLDADR, 
KEY ' Record key 
MSGFLG : BYTE, ' Response message flag 
OWNE ' Search key 
PRMDSE : VECTOR (2. 
RECDSC : VECTOR " 
SRCPTR, ! Pointer to source block 


STATUS; 


Purge the logging sink data. 


MSGFLG = FALSE; ! No coapenee messages 

FID = .NMLSAB_ENTITYDATA CNMLSC_SINK, EIT$B FILEID]; | Get file id 

OWNER = .NMLSAB_ENTITYDATA CNMLSC_SINK F1Tsy KEY]; ! Get search key 
Y = 0; t fnitialfze record key 


“4 Page 27 
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wm Syne NML PUR ermanent parameter module 19~3007 138% 90:67:12 VAX-11 Bliss-32 ve Georg Page 38 
NAL_PURLOGALL Purge logging sink parameters 14-Sep-1984 12:50:16 DISKSVMSMASTER: CNML.SRCJNMLPURGE .B32:1 (11) 


; 33 : : Find the record in the file. 

: 1 IF NMLSMATCHRECORD (.FID NAL $60 RECBFDSC, KEY, 

; 1 OWNER, 1, SRK, 

; 1 0, 6, ! No qualifier 
> B24 14 rEcDS§c) 

; 5 15 THEN 

; § 1 BEGIN 

3 8 18 MSGFLG = TRUE; ! Set response message flag 
; 9 19 NML_PURENTITY (NMLSC_SINK, TRUE, RECDSC, KEY); 

: 831 : 1 END; 

3 i ; § Purge the logging filter data. 

; 5 OB 5 FID = .NMLSAB_ENTITYDATA CNMLSC_LOGGING, EITS$B_FILEID]; ! Get file id 
3 % oe § OUMER : -NMLSAB_ENTITYDATA CNMLSC_LOGGING, EITSW_KEYJ; ! Get search key 
; 0828 , 

; $8 0829 WHILE NMLSMATCHRECORD (.FID 

; 840 0830 NML$GQ_RECBFDSC, 

; 841 0831 KEY, 

3 rk tt .OWNER, 0, 0, 

; «84 08 0, 0, 0, ! No qualifier 
3 B44 0834 RECDSC) DO 

3 845 0835 BEGIN 

PF} ae8 ett] ! 

3 7 083 ! Find event parameter in record. 

3 ae8 0838 : 

: 9 0839 FLDADR = 0; 

; 850 0840 STATUS = NMASSEARCHFLD (RECDSC 

3 851 0841 NMASC_PCLO_EVE, 

: 838 0848 FLDSIZE, 

3; «85 084 FLDADR): 

3; 854 B44 IF .STATUS 

; 35 obec 4 “BEGIN 

; 2 ob2$ 4 

3; 858 0848 4 C VE (.FLDSIZE, .FLDADR, .NMLS$Q_EVTBFDSC [1)); 
> 859 0849 4 PRMDSC £6 = .FLDSIZE; 

3 0850 4 PRMDSC (1J = .NMLSQ_EVTBFDSC [1]; 

3 1 0851 4 

3 § $826 4 END 

3 53 3 ELSE 

; 0854 ra BEGIN 

} 5 855 4 

; 336 4 PRMDSC 9) = 0; 

; 8 ‘ PRMDSC C1] = .NMLSQ_EVTBFDSC (1); 

3 Beg END; 

3 1 : Clear event filters. 

; g SRCPTR = F 

; WHILE NMLSGETNXTSNK (PRMDSC, .SNK, SRCPTR) DO 

: 5 4 BEGIN 
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1 
L Purge logging sink parameters 1 


ASGFLG = TRUE; ! Set response message flag 
7 NMLSREMSRC (PRMDSC, .SRCPTR): 
END; 
IF .MSGFLG 
BEGIN 
IF NOT NMLSSAVEVENTS (NMLSK_MAX_REC_DATA, 
«PRMDSC £93. 
-PRMDSC [1], 
RECDSC) 
THEN 
EXITLOOP; 


i If source was cleared successfully and there are still filters 
! remaining for this sink node then write the record back to file. 


IF .PRMDSC [OJ EQLU 0 

NMLSDELETRECORD (.FID, KEY, 0) 

NMLSWRITERECORD (.FID, NMLSC_SINK, KEY, RECDSC, NMNSC_UPDATE_REC); 
NMLSAB_MSGBLOCK CMSB$B_CODE] = NMASC_STS_SUC; 


fe Te Te Te +] 
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90 
904 END; 
905 
906 KEY = .KEY + 1; 
907 
908 END; 
909 
910 RETURN .MSGFLG 
912 END: ! End of NML_PURLOGALL 
OFFC 00000 NML_PURLOGALL: | 
.WORD Save R2,R3,R4,R5 Rg R7,R8,R9,R10,R11 : 0753 
5B 000000006 00 9€ 0000 MOV NL SAB ENTITYOATA+88, R11 ; 
5E 00 SUBL2 #32, SP : 
000C CLRB. = MSGFLG + 0804 
57 68 9A OE MOVZBL NMLSAB_ENTITYDATA+88, FID : 0805 
9 03 AB 3C MOVZ2WL NMLSABTENTITYDATA+91, OWNER : 0806 | 
AE D4 CLRL—sCOKEY : 0807 
10 AE OF PUSHAB RECDSC : 0811 | 
-(SP) 3 
b ~(SP) : 
1) 3 
; 081 
f ; 081 
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amy See NML PURGE pormenent parameter module 19-3007 138% 90:97:12 VAX-11 Bliss-32 a get Page 30 
NML_PURLOGALL Purge logging sink parameters 14-Sep-1984 12:50:16 DISKSVMSMASTER:CNML.SRCIJNMLPURGE.B32;1 (11) 
H L x g 
000000006 or 9 PUSHAB NAL $60 RECBFDSC 
000000006 rH A iS 1 CALLS H 0, NMLSMATCHRECORD : 
5 ° : 0 MOVE #1, MSGFLG : 081 
o¢ AE OF PUSHAB KEY + 081 
4 AE 9F 0004 PUSHAB RECDSC : 
DD 00044 PUSHL @# : 
2 0D 046 PUSHL #2 : 
FEEO =sCF 4 FB 904 CALLS #4, NML_PURENTITY : 
7 AB 9A 4D 1$ MOVZBL NMLSAB_ENTITYDATA+44, FID ; 0825 
9 b7 AB 3C 9 2 MOVZ2WL NMLSAB-ENTITYDATA+47, OWNER : 08 $ 
f AE 04 CLRL —sCWKEEY : 08 
1 AE 9F 00058 28 PUSHAB RECDSC : 0829 
7E 7C 00058 CLRQ = (SP) : 
7E 7C 00050 CLRQ = = (SP) : 
43 D4 0005F CLRL = = (SP) : 
59 DD 9061 PUSHL R + 0832) 
28 AE 9F 0006 PUSHAB KEY : 0829 
000000006 9 9066 PUSHAB NML$GQ_RECBFDSC : 
000000006 90 A F 0666 CALLS #10, NMLSMATCHRECORD ; 
E D4 00078 CLRL ~~ FLDADR : 0839 
E OD OOO7A PUSHL SP + 0840 
08 AE 9F O007C PUSHAB FLDSIZE : 
7E C9 BF 9A O007F MOVZBL #201, -(SP) : 
1C AE 9F 00083 PUSHAB RECDS . ; 
000000006 oh ‘ r 0086 CALLS #4, NMASSEARCHFLD F 
6 00000000" 90 DO 00090 MOVL §§ NMLS$Q EVTBFDSC+4, R6 : 084 
0D A 59 0097 BLBC_ — STAT $ : 084 
66 00 BE 04 AE 28 OO09A MOVC3 FLDSIZE, @FLDADR, (R6) : 084 
18 «AE 04 A dO S00n3 MOVE FLDSIZE, PRMDSC ; 086 
18 AE 04 OCOA7 3$: CLRL §- PRMDSC : 085 
1c AE 56 DO OOOAA 4$: MOVL  R6, PRMDSC+4 : 085 
08 AE D4 OOOAE CLRL = SRCPTR : 086 
AE 9F 00081 S$: PUSHAB SRCPTR > 0864 
04 AC bb 0084 PUSHL SNK : 
0 AE 9F 00087 PUSHAB PRMDSC : 
000000006 09 9 FB 008A CALLS we, NMLS$GE TNXTSNK 2 
38 01 O¢4 MOVB #1. MSGFLG : 0867 
08 AE pp ¢ PUSHL SRCPTR : 0868 
1¢ AE OOF OCA PUSHAB PRMDSC ; 
000000006 00 0 re OCD CALLS #2. NMLSREMSRC F ceed 
47 BF 9 9006 68: BLBC MSGFLG, 10$ : 0872 
1 AE OF PUSHAB REDSC : 087 
: AE DD C PUSHL PRMDSC+4 > 087 
AE p F PUSHL PRMDSC ; 087 
7 O3F6 BF 3C MOVZWL #1014, -(SP) : 0876 
000000006 F CALLS #4, NAL SSAVEVENTS ; 
BLBC =E_—s«aRO,-*111 : | 
0 TSTL  PRMDSC : 0886 
| BNEQ 8$ ; 


; Routine Size: 
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7:19 VAX-11 $-32 V4.0-7 
TER: NAL. SRC NAIL 


0:16 DISKSVM 
(SP) 
KEY 
FID 
5 ~ NMLSDELETRECORD 


& 
oEceee 


Ay NML$WRITERECORD 
“i, ‘ NMLSAB_MSGBLOCK+4 


2 
MSGFLG, RO 
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4 1 
wm Srynce NML PURGE permanent parameter module 16-Sep-1984 99: gril? 7:1 VAX-11 BL Lise =32 V4.0-74 3 
NAL _PURL L Purge logging sink parameters 14-Sep-19 DISKSVMSMASTER: CNML. SRC JNMLPURGE . B32. hl (12) 
$ aie 3 ! END ! End of module 
: 916 5 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: — 8 movers WRT, RO ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS C,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 1424 NOVEE. ‘NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NUPIC,ALIGN(2) 
H Library Statistics 
3 ecccsese SyEhel§ coccesse Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28: CNML.OBJINMLLIB.L32;1 341 44 12 27 0:00.1 
; -$ 55$DUAZ8: SHRL IBINMALIBRY - 231 887 11 1 47 9:00.¢ 
: 7$255$DUA28:CSYSLIBISTARLET.L32; 1 9776 1 0 581 0:02. 
; COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:NMLPURGE/OBJ=OBJ$:NMLPURGE MSRC$:NMLPURGE/UPDATE=(ENHS:NML PURGE ) 
; Size: 1424 code + 1108 data bytes 
3; Run “Time 724.0 
3 Slaseed. Tine: 259.9 
: Lines/CPU Min: 264 
3 Phy: Be 11467 
: Y Used: 141 pages 
3; Compilation Complete 
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